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The 

Editor ' s Thoushts 
By Jin DeStafeno 



Yes, we are late. The presses 
were held to give you a report on 
the 6 8 XXX action at the Chicago 
'91 CoCofest. All three major 68K 
computers were there in action. 

The System- IV booth had several 
machines demonstrating excellent 
color graphics, and digital ized 
voice and music. They even had 
their MS-DOS board running. They 
were proud to say they have been 
shipping machines for many months. 

„ Frank Hogg Labs had three demo 
machines showing fine animated 
color graphics and text. Frank 
said he will be shipping before 
the middle of May. 

The MM-1 booth had two demo 
machines running. At first they 
too showed graphics and text. How- 
ever, the graphic colors were very 
dark and muddy; no better then 
what they showed at Atlanta. I 
didn't see the graphics displayed 
all day Saturday or Sunday. 

Saturday afternoon Lonnie Falk 
of RAINBOW MAGAZINE moderated a 
question and answer forum between 
Ed Gresick of delmar's System- IV, 
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Prank Hogg, and Paul Hard of IMS's 
MM-1. The highlights were, Paul 
opened with an apology for having 
overstated expected shipping 
date(s) and the MM-l's capability. 
He didn't state a new date, but 
did say the MM-1 would only run 
MS-DOS programs after they are 
rewritten (ported). 

Frank Hogg openly vented his 
anger toward Paul based on disc- 
rediting statements he had made 
previously. At one point Paul 
bowed his head to his cupped hands 
on the table as Frank expressed 
his anger. 

Gresick gave short relaxed an- 
swers throughout the three hour 
session, and asked several pointed 
questions himself. His main point 
was that he has been selling oper- 
ating production hardware and sof- 
tware for many months. The other 
two didn't question his statem- 
ents . 

Under the "What's New?" 
thought , "68xxx" has added a page, 
it has more advertisers and of 
course subscribers. Also, we are 
letting some software authors 
write their own software reviews. 
We'll see how that goes. 

There just isn't room for let- 
ters this month; hope we can do it 
next . 



Text Formatting 
In C 

By Bob van der Poel 



One of my REAL interests in 
programming is the development of 
text editors and formatters. I 
guess it dates back to the time I 
got my first computer and wrote my 
first REAL program — a simple text 
editor in Basic. Both my abilities 
and computers have come a long way 
since that time, but many of the 
problems in formatting text remain 
the same. 

An interesting topic is that of 
justifying lines of text. At first 
look it is pretty simple — just put 
in extra spaces until the line is 
long enough to fill the space be- 
tween the left and right margins. 
A 'C language function for this 
might look like this: 

/* point to buffer containing teit */ 
just i f y(buf f .currlen.nlen) char *buff; 
tot currlen) /* current length of the string */ 
'ot nleo; „ 
* "needed" length */ 

register int t; 
whilef currlen<nlen){ 

while(t++<currlen-l && currlen<n!en){ 
if(bufflt]----SPAC8 U bufflt*l]»--SPACE){ 
aeacpj (&buff[t*l),&buff(t] r currleirt + l); 
currlen**; 



However, this first effort 
fails for a number of reasons. 
First, there should be a comment 
somewhere stating that 'buff must 
be large enough to accomodate the 
expanded line. Second, what hap- 
pens if the line contains no spac- 
es? Right — it will loop forever"/ A 
flag is needed which will termi- 
nate the loop in this situation. 
Third, the results of a series of 
lines justified by this routine 
will not look very nice--the pad- 
ding is always started at the left 
side of the line. This last prob- 
lem is the focus of this article. 

I have seen a number of prog- 
rams which solve the problem of 
off balance lines by having two 
justify routines: one which exp- 
ands from left to right, the other 
from right to left. These routines 
are called alternately. If you've 
seen text justified in this manner 
you'll probably have noticed that 
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it, too, looks a bit unbalanced 
(although it is better that the 
results of the above function). 
Not only that, but two routines 
are a needless complication. 

When writing VPRINT I spent a 
lot of time thinking about a good 
solution--and the one I finally 
came up with is both simple to 
code and generates nice results. 
My solution is to always do the 
expansion from left to right, but 
to start the first pass at a ran- 
dom position in the line. Who said 
that random number generators are 
only good for games and simulat- 
ions? 

So here is my routine. I've 
included a rnd() function which is 
adequate for this job, but I'm 
afraid it might not be quite as 
random as one would like. You 
should also be aware that memcpyO 
on my compiler (OS- 9/ 68000) han- 
dles overlapping memory — other 
compilers may need to use memm- 
ove(). 

juttif j(buf f ,currlea,elce) char buff; iat currleoj 
tat alee; { 

register iat t,flag; 



lltg=l; 

t=rod(currleo-l); 

Nbile(currlea<oiea){ 

while(t**<currlen-l && currlen<ol«o){ 
if(btt!f|tl==SPACE 6& buffftfl !=SPACE)( 

currlea**; 

flag"; /* signal soaethtag done •/ 

1 

if ('flat) break; /* eothieg inserted, eiit */ 
t : tlag-0; /* start aeit loop at start 

of liae */ 

fiaclude <tiae.h> 

rad(i) iat i; /* aai vilue o reture •/ 

register loog teap; 

static uatoo( 

struct sgtbttf tbuf; 

loog laua[2j; 
, iat flag; 
Jseed; 

/* seed the pattera */ 
if(!seed.flag) get iaeUseed. tbuf ); 
seed.loua[0h:0il234S«7; /* set aeit pattera */ 
seed . laua| 1 J ♦=0i89abcde ; 

teap=seed.loua(0)^8eed.laua(t); /* get auaber */ 
if(teap<0) teap=-teap; /* aake sure >=0 */ 
return (tat)vteap * i); /* return the auaber "/ 



Bob can be reached in care of 
The 68xxx Machines or directly at 
PO Box 355, Porthill, ID, 83853. 



Great OS- 9 Software 



VEDl OS-9 Text Editor 



. $24.96 



The best editor for OS-9 just got 
better. Version 2.0 of this best se- 
ller now includes 36 definable mac- 
ros, case-switcher, and even more 
speed. See the review in Mar/Apr Cli- 
pboard. Works with 128 or 512K. Up- 
grades to version 2.0 with new 28 pg. 
manual are $12.00 with proof of pur- 
chase . 



VPRINT 0 . 0S-9 Text Formatter . $29.95 

An unbelievably powerful formatter. 
Features include complete proportion- 
al font support, multiple columns, 
footnotes, indexing, table of conte- 
nts and more. Comes with 120 pg. man- 
ual, demo files and extensive macro 
file. 512K RAM recommended. 



Ultra Label Maker 9 $19.95 

Turns your printer into a printing 
press for labels. WYSIWYG previewing. 
Supports ALL printers. Useful and 
lots of fun. One of Rush Caley's Top 
10. Requires 512K Coco 3. Coco 2/3 
version $14.95 



Magazine Index System 9 



$19.95 



Now you can find those references 
fast. Comes with extensive Coco maga- 
zine data files. Pile compatible with 
our RS-DOS version. Another one of 
Rush Caley's Top 10. Requires 512K 
Coco 3. Coco 2/3 version $14.95 



Sorry, no credit cards. Enclose check 
or money order plus $2 S/H. Complete 
catalog available. Send $1.00. (Free 
with order.) Most orders shipped next 
day! 

Bob van der Poel Software 



P.O. Box 57 
Wynndei, B.C. 
Canada V0B 2N0 



OR 



P.O Box 355 
Porthill, ID 
USA 83853-0355 
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Review : 
PAT Text Editor 
JUST To act: 
Formatter 

By R. W. Anderson 




Please note, m 68xix is trying a new review method; 
letting the program author write the review, Son 
gets to go first. I d like to hear what you think of 
the idea. For now, when reading, just keep in mind 
who is doing the writing. BD 



PAT is an acronym for Program 
And Text editor. The design goal 
was to make an Editor that would 
be a touch typist's dream. Rather 
than using the Function keys to 
get a particular action, PAT uses 
control keys, <CONT> or <ESC>, 
followed by a specific character. 
The command control keys were se- 
lected to make a sensible layout, 
not for their letter name. The 
idea is to be logical by position. 
(I freely admit the key layout 
that controls the cursor movement 
is not original. I first saw it 
used on an Apple Editor programmed 
by by Tom Crosley.) 

The use of control keys allows 
a touch typist to do many funct- 
ions required by a screen editor 
by "touch", rather than having to 
find something like SHIFT Fll. I 
submit, it is far easier for a 
touch typist to learn to hold the 
control key with the left little 
finger and type any valid control 
key on the keyboard then it is to 
reach function keys. 

One quickly learns to substi- 
tute the 4th finger for the little 
one in typing <CONT-A> or <CONT-Z> 
for example. PAT groups the con- 
trol of the cursor motions at the 
left hand side of the keyboard. It 
is the position of the keys that 
is helpful in remembering their 
function. The center of the cursor 
motion controls is the D key. Move 
up one row to the E key and type 
<CONT-E>, and the cursor moves up 
one line (never sideways regard- 
less of short or blank lines). 
Move down a row to the C key to 
move the cursor down one line, 
<CONT-C>. To move right, <CONT-F>. 
<CONT-S> moves the cursor to the 
left. Get the idea? 

Now expanding on the theme, 
moving two keys to the left, the A 
key moves the cursor left one tab 



Classified Acts 

- ttARTID - SS-SO equipment. SWT CPU card, also 
Gimii PIO 128 (30 put) f DC. Alen B. Gordon, MD 
/ 160 Ntf 176 St / Hiati, PL 33169 / (305) 
653-8000. 

- SALE - PT68K-2 complete system: lOMHr 
■otherbd w/lH RAM, 20H hard drive, 720* floppy, 
amber monitor, SK*D0S, RBASIC, EDDI, all manu- 
als, lore! Used very little, $800 ♦ shipping. 
Phil Kriea. 1122 1/2 Barlaod, Houston TX 77009. 
713/861-03(7 eve/wkeods. 

Turn that old computer equipment into cash with 
a Hut classified ad. Salt ads are $5 per 50 
character line, fatted ads are just $2.50 per 50 
character line. 
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position, or one word depending on 
the mode. Moving to the right two 
keys from the D key, <CONT-0> 
moves the cursor to the right by 
one tab position or one word. 
<CONT-E> moves the cursor up one 
line. Moving to the right of E, 
<CONT-R> moves the text down one 
screen. The cursor ends up one 
screen above its previous location 
in the text. <CONT-V> moves the 
cursor down one screen in the 
text . <CONT-T> moves the cursor to 
the top of the file. <CONT-B> 
moves the cursor to the bottom of 
the file. 

After the basic cursor moves we 
have a few more mnemonic keys, 
<CONT-K> kills a line. <CONT-J> 
kills a single character, not mne- 
monic, but of lesser scope moving 
more toward the D key. Continuing 
in that direction <CONT-H> back- 
spaces and kills a single charac- 
ter. <ESC-E> deletes text from the 
cursor to the End of the line. 
<ESC-J> joins the next line to the 
current one, and <ESC-S> Splits a 
line at the cursor, the portion to 
the right moving down a line. 

The cursor can also be moved 
to, say the 30th column of the 
10th line after the last line with 



text on it and type an X. , PAT 
puts a CR at the beginning of all 
the blank lines down to the point 
and spaces over the 29 spaces, 
then puts in a X followed by a CR. 
You don't have to insert the blank 
lines with successive CRs and you 
don't have to space out to the 
30th column. Some of this was the 
hardest part of PAT to code, but I 
felt it to be so far superior to 
the way many other editors work, 
it was worth the effort. It is so 
much more natural to move the cur- 
sor to wherever you want to put 
text, and just put it there. It is 
as though the screen were a blank 
piece of paper in a typewriter; 
you can put text anywhere on the 
paper. 

All of these characters are 
assigned to their action by a pro- 
gramable ASCII configuration file. 
It allows you to swap the funct- 
ions of the keys around to suit 
your tastes, though all the keys 
are used so you end up swapping 
functions rather than changing one 
or two to something else. There is 
a terminal configuration file too. 

The goal was to make the other 
things logical too. Lines longer 
then the width of the screen, up 



PT68K2/4 Programs for REXDOS & SK*DOS 



EDDI 


A screen editor und formatter 


$50.00 


SPELLB 


A 160, 000- word spelling checker 


$50.00 


ASMK 


A native code assembler 


$25.00 


SUBCAT 


A sub-directory manager 


$25.00 


KRACKER 


A disassembler program 


$25.00 


NAMES 


A name and address manager 


$25.00 



Include operating system, disk format, terminal type and telephone 
number with order. Personal checks accepted. No charge cards. 



PALM BEACH SOFTWARE 
Route 1 Box 119II 
Oxford, FL 32684 
904/748-5074 
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to 127 characters, scroll across 
the screen left to right/There is 
a solid reverse video status line 
at the bottom of the screen that 
shows memory left in the buffer; 
the mode, INS for Insert Mode; 
Pmode, Amode or neither; the Line 
Length; Cursor Position, line and 
column; first and last lines of a 
marked block (while it is marked), 
and a number of other mode flags. 
It is also the place to enter pa- 
rameters such as line lengths, tab 
spacing, or search strings. 

There are Help Screens acessed 
via control keys. If you forget a 
command, no need to dig out the 
manual, just type <ESC-H-CR> and 
choose from a menu of help screens 
or a return to the edit process. 

There are three main modes; 
Overlay (Over strike) Mode, Insert 
Mode and Autolndent Mode, and a 
couple of sub-modes. PAT's modes 
allows you to accomplish different 
general actions. In the Overlay 
(Over strike) Mode changes whatev- 
er is under the cursor to whatever 
is typed. In the Insert Mode what- 
ever you type is inserted at the 
cursor and whatever that is after 
the cursor moves along to the 
right. In Autolndent Mode, you can 
do programs or outlines. A CR puts 
the cursor under the first non 
blank character of the previous 
line. You can tab in or out of one 
indent level and continue with 
your outline or program. You can 
set tabs every Nth column with a 
simple command or you can set tabs 
irregularly at any specific col- 
umns you like from no columns to 
every column. 

In either overlay or insert 
mode, you can turn on Paragraph 
Mode or Pmode as it is called. 
When you get to the preset line 
length, the last word or partial 
word is moved to the next line (a 
feature called word wrap). You 
never have to type a CR while en- 
tering text except to end a para- 
graph. In Paragraph Mode you can 
move the cursor left or right re- 
spectively to the first character 
in the previous or next word. When 
Paragraph Mode is off, the tabs 
move the cursor to the next or 
previous tab position. This is 
true whether or not Autolndent 
Mode is on. 

CR is rather benign. It doesn't 
split a line, but moves the cursor 
harmlessly to the beginning of the 
next line. This is true whether 



you are in the middle of a para- 
graph at the time or not. PAT pre- 
sently has the edit buffer set to 
be 200,000 bytes, 800 sectors. PAT 
will also edit larger files by 
spooling the early part to a disk 
file and pulling in more to the 
buffer limit. Spooling is not dy- 
namic. That is, once you have 
pulled in more of a file you can't 
go back to the early part that has 
already been written to a disk. 
To do that, you have to save the 
file, exit, and start editing 
again. 

PAT has global search and re- 
place commands. They allow you to 
change one occurrence, selected 
occurrences, or all occurrences of 
a particular string to another. 
There are also block marking fea- 
tures. A marked block appears in 
reverse video on a monochrome mon- 
itor, while a CGA momitor shows 
the block on a red background. 
Normal text is on a blue back- 
ground. A marked block can be cop- 
ied elsewhere in the text, moved, 
or deleted. 

For systems with an IBM key- 
board, I've activated the cursor 
keypad to work in parallel with 
the control keys for cursor mo- 
tions. (I find them convenient 
when I am looking through a file 
and not actively entering text.) 
They are single keystrokes that 
take the place of control keys. 
The arrow keys do just what you 
would expect. PgUp does the same 
thing as <C0NT-R>. PgDn does the 
same as <CONT-V>. Home and End 
move the cursor to the left and 
right end of the current line re- 
spectively. INS toggles in- 
sert/overlay modes, <CONT-P>. DEL 
deletes one character at the cur- 
sor, <CONT-J>. 

For systems with an old serial 
terminals, I've made another modi- 
fication. On most serial terminals 
the ESC key is immediately to the 
left of the Q key. On the IBM key- 
boards the TAB key occupies that 
space and the ESC is off on the 
upper left of the numeric keypad. 
I've reassigned the TAB key to be 
ESC since tab is activated with 
<C0NT-G>. I find it much handier, 
but on request at time of ordering 
I'll leave TAB as TAB. IBM inter- 
prets the TAB key to send 
<CONT-I>. In PAT that will insert 
a blank line at the cursor. In 
either case the normal ESC key 
continues to function as ESC. 
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When running under SK*DOS the 
backspace key and <CONT-H> acti- 
vates the backspace function; move 
the cursor left and delete any 
character under it. Backspace 
will go past the beginning of a 
line and wrap around to the end of 
the previous line. Unfortunately, 
in the REX version, some other 
considerations have made the actu- 
al backspace key a cursor left 
only key rather than a real back- 
space. You must use <CONT-H> with 
REX to move and delete. 

PAT can reformat ragged para- 
graphs, putting as many words as 
will fit on each line, as deter- 
mined by the line length that you 
have programmed. 

Also, by your command PAT can 
insert additional spaces to right 
justify the text. After placing 
titles, etc. in the proper posi- 
tion, printing can be accomplished 
by simply LISTing the file to a 
printer. It will come out spaced 
as it is on the screen, including 
justified. However, to cause spe- 
cial location page breaks and to 
produce page numbers, amoung other 
things, the companion text format- 
ter called JUST must be used. 

PAT produces standard ASCII 



files with no control characters 
other than CR, and no character 
with the high order bit ON. Each 
line is terminated by a CR, rather 
then a paragraph as just one super 
long line. That means a standard 
LIST utility will list a PAT edit- 
ed file with normal line breakes. 

However, normally I use my JUST 
text formatter. It has formatting 
control characters which are em- 
beded in the text file when it is 
ready to print. Using the control 
characters the formatter signals a 
printer to change type widths, 
switch to italics, etc. To use it, 
you must prepare a printer control 
file that contains the proper es- 
cape sequences to control your 
specific printer. You simply in- 
sert a back slash and a predeter- 
mined character to get the action 
you want. Such as, \i in your text 
turns the italic font ON, and an- 
other \i turns it OFF; \n is for 
narrow font, \w for wide and \b is 
for boldface. 

Formatting commands begin with 
a comma at the beginning of a 
line, also followed by a charac- 
ter; such as, ,C for center the 
next line and ,p to signal a para- 
graph start with a program set- 
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table number of indent spaces. 
JUST doesn't care whether commands 
are upper or lower case. 

PAT versions are available for 
6809, MS-DOS and of course 68000 
machines; the latter under SK*DOS 
and REX. The 6809 version only has 
room for about 29K of text buffer. 
The others all have up to 200,000 
byte buffers. The source file for 
PAT is about 75K of text, so (ex- 
cept in the 6809 version for which 
the source is split into multiple 
files) it can edit its own source 
file with plenty of room to spare. 

In addition to the features men- 
tioned above, there are also book- 
marks (a way to mark a place in a 
file so you can return to it lat- 
er), block moves, copies, deletes, 
writing blocks to another file or 
reading in whole files into the 
text at the cursor position. 
Search and Replace features inc- 
lude being able to search for a 
word ignoring upper/ lower case. 
You can delete a character, a 
word, a line, a marked block or a 
specified number of lines. There 
are express cursor moves beginning 
- end of line and top - bottom of 
screen, just to name a few more. 

It would be unfair if I didn't 
mention that PAT does not select 
fonts and format two or three col- 
umns across a page. Nor can it 
edit two files at the same time. I 
am presently working on that. The 
action can be done now but it is a 
cumberesome. Suppose you want to 
copy part of file A into file B. 
First you edit file A and write 
the part you want to transfer into 
a sidefile C. Then you exit and 
edit file B. Now you put the cur- 
sor where you want to insert, and 
input file C. When you are done 
you might want to delete file C. 

PAT is available on disk with 
complete manual (about 45 pages) 
in text files on the disk, ready 
to print out by simply listing the 
files on an 80 column printer. 
I'll supply a printed manual for 
$15 more. Please specify REXDOS or 
SK*DOS version and the disk for- 
mats you can read. I'll throw in 
JUST which works with "monospaced" 
type. It has the same sort of con- 
figuration file as PAT. You tell 
it what the control codes are for 
your printer and it then sends 
them when it sees commands in the 
text file. 

I am presently not supporting 
the OS-9 version, of PAT or JUST , 



but I might be interested in re- 
viving them if there are enough 
requests. The MS-DOS version pres- 
ently runs only on color monitors, 
CGA, EGA or VGA. I would add Mono- 
chrome capabilities if there is 
interest in it as well. If you are 
interested in the above, write me 
a letter. I'll try to be flexible. 

I supply the terminal configu- 
ration file set to video termi- 
nals, and include a number of sam- 
ple ones for various common serial 
terminals. Of course I'll help you 
if you have a problem configuring 
for a particular terminal. It is 
an ASCII file that can be edited 
with any editor, which needs not 
be assembled or compiled. It can 
handle just about any serial ter- 
minal including the ANSI type that 
requires rather different and lon- 
ger control codes than other 
types, (but are more flexible). 

- PAT and JUST (including source 
code) R.H.Anderson, 3540 
Sturbridge Ct, Ann Arbor MI 
48105, $50 with the manual on the 
program disk, $15 for printed man- 
ual - 

This Space 
Is Waiting 

cfor lour 



The Cost??? 
Just $10 per month 



Call (302) 492-8511 
for information. 
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Is Waiting 
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Advertisement 

The Cost? 
As little as 

$10 per month 

Call (30Z) 492-4511 
for information. 
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Good ideas, sudden realizat- 
ions, and other such "Ah-Hah!" 
moments are not always especially 
original . There are many observa- 
tions that are "known" by the gen- 
eral populace - at least internal- 
ly - but they do not allocate much 
conscious time thinking about 
them. Consequently, others get the 
credit for "discovering" these 
truths. I'm one of those people 
that just can't resist being out 
there looking for these subtle 
truths that are in the "ethers" 
rapping on the windows of our con- 
sciousness. 

My topic for this month's r amb- 
lings falls into such a category 
mentioned above. My wife and I 
have agreed that both separately 
and together, we have discovered 
the root causes - and therefore, 
the solution - to over 90% of the 
crime in America. That's right! 

A couple of the major buzzwords 
making their way through many dis- 
ciplines today are "preventative" 
and "proactive". Preventative Med- 
icine teaches doctors to treat 
patients such that problems can be 
identified before they get out of 
hand. Preventative Dentistry is a 
practice that all but eliminates 
the need for traumatic visits to 
the dentist. Be preventative, be 
proactive. Anticipate problems and 
act in such a manner that will 
allow you to escape or minimize 
the consequences. So we've decided 
that Law Enforcement agencies 
should enact laws and work toward 
prevention of crime before it can 
happen. 

You've heard it all before. 
After some heinous crime, most 
people's first reaction is "Now 
who could have done a terrible 
thing like that?" But after years 
of reading and watching the daily 
news, the answer, it seems, is 
simple. Over 90% of all heinous 
violent crime can be attributed to 
persons falling into one or more 
of three categories. 11 They keep 
a diary; #2 they have a distinc- 
tive tattoo burned somewhere into 
their body; or #3 they are the 
sole beneficiary of the decedent's 
monster life insurance policy. 

Diaries, tattoos, and life in- 
surance should be outlawed! If 
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that sounds too harsh, think about 
it for a while. Diary keepers ( a 
la Oswald, Sirhan, Hinkley, etc.) 
are responsible for nearly all 
political assassinations in our 
recent history. Monster Whole 
Life, Double Indemnity life insur- 
ance is the smoking gun behind God 
knows how many murders. And tat- 
toos! Hell, you know it doesn't 
take an Einstein to realize that 
for three years nearly every crim- 
inal profiled on America's Most 
Wanted has sported an odd tattoo 
of one shape or another. 

So it's time to be proactive! 
Prevent crime before it happens! 
Outlaw these killer practices and 
monitor those that indulge in 
them. You will go a long way to- 
ward cleaning up crimes of all 
sorts ravaging the country today. 



Reviews Whimsical 
By ft. W. Anderson 



I've been using Whimsical both 
at work and at home for several 
years. The manual (which is large 
and quite complete) contains a 
history of the language. Therefore 
I won't go into that here, save to 
say that it was developed in New 
Zealand by John Spray while he was 
attending the University of 
Auckland. Now JOhn and I work to- 
gether, for the same company, here 
in Michigan. 

Whimsical is a fairly complete 
Pascal like language that compiles 
to machine language. It is avail- 
able in SK*DOS or REXDOS versions. 
With the Pascal like syntax you 
can do most anything you can do in 
assembler. Also, if you want to 
use some assembler code in the 
middle of a procedure or perhaps 
write a whole procedure in assem- 
bler, it is easy to do so. 

Whimsical is "tuned" to the 
architecture of the 68000. It 
takes full advantage of all the 
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registers. In any given procedure 
you can specify register variab- 
les. If there are any spare reg- 
isters the compiler will generate 
code to use them. If not, it will 
tell you they are not available. 
The compiler "knows" at the time 
of compiling the register alloca- 
tion and can tell you whether or 
not you can use a register vari- 
able. Unlike the process using 
*C', you know whether you are re- 
ally getting register variables or 
not . 

Another nice thing, compiling 
is done in a single pass. Any un- 
resolved forward references are 
retained in a buffer, and are 
"fixed". That is, the code genera- 
tor generates a branch or jump 
that was given an address of 0 (as 
many bytes as required for the 
particular jump instruction). When 
the compiler knows the destination 
address it goes back and overlays 
the 0 with the actual destination 
address. If the jump code has al- 
ready been written to disk, the 
compiler generates a load record 
that overlays the jump when the 
program is loaded from the disk. 
Because of the single pass nature, 
large programs can be compiled 
very quickly. 

Whimsical compiles several 
times faster than 'C 1 . 'C 1 comp- 
iled one test I made in 121 sec- 
onds, while Whimsical took only 7; 
and that was on my old slow 
PT68K-1A. In addition, the 'C' 
version took 25 disk sectors, 6063 
bytes of object code. The Whimsi- 
cal version took only 3 sectors, 
701 bytes. 

Though Whimsical is mostly Pas- 
cal like, it It is less wordy. It 
also has some of the niceties of 
'C'. It allows the use of curly 
braces for BEGIN and END as 'C 
does. I emphasize the word ALLOW. 
You can use BEGIN and END if you 
prefer (I do). It allows the fast 
shortcut assignment operators of 
i.e. *= and /= for 

changing the value of a variable 
as in INDEX +=3; (rather than the 
usual INDEX := INDEX+3;). State- 
ments are free form, terminated by 
a semicolon as in Pascal. A line 
break (CR) has no more signific- 
ance than a space, in a Whimsical 
statement . 

The language has a very useful 
pointer data type, more like a *C 
pointer than the one in Pascal . 
The syntax is much less confusing 
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uian mac or c : 

char pointer p; 

p :» address port; 
[p] :■« f c f ; 

(The syntax is close to 
Motorola's for the 6809 indirect 
addressing mode in assembler.) The 
pointer is defined by using the 
word POINTER in the definition. 
The variable name used by itself 
on the left side of an assignment 
statement must be assigned an ad- 
dress. The keyword address insures 
this. When the variable name is 
enclosed in square brackets it 
becomes the pointer. The statement 
says "set the variable pointed at 
by p to the ASCII code for the 
character , c ,M . In the above exam- 
ple PORT might have been assigned 
a location when it was declared as 
in: 

char port($FF07FF); 

Whimsical allows the user to 
specify the address of a variable 
when it is declared. The parenthe- 
ses in the above assignment holds 
the Hexadecimal address. A pointer 
in Whimsical can have an offset. 
It can be used to access a group 
of variables (perhaps declared as 
an array and perhaps not). 

In the above example, address 
port+1 might be a control register 
for a parallel port. We can access 
that with our pointer p by using 
something like: 

[p,l] : = strobe; 

where strobe might be a declared 
constant that turns on a handshake 
for an external device etc. The ,1 
is an index operator that takes 
into account the size in bytes of 
the variable accessed by the 
pointer. It means "the next data 
item". In the case of a pointer to 
longint, for example, it will ac- 
cess the variable four bytes past 
the one pointed at by p. Data can 
be accessed sequentially by using 
a post increment or pre decrement 
operator on the pointer: 

ch : = [p+]; or ch := [-p]; 

Successive execution of this 
statement in a loop will move the 
pointer through the data forward 
or backwards respectively. A poin- 



ter can also be incremented using 
the ",=" operator: 

P ,=3? 

That would increment the point- 
er by three items of the variable 
type for which P was declared a 
pointer. In the case of longint, 
again p would be incremented by 
3*4 or 12 bytes. (I didn't mean to 
give the impression here that 
pointers can't have meaningful 
names, p could just as well be 
data pointer or pointer to the 
value in question if you like. In 
fact all variable names in Whimsi- 
cal can be up to 80 characters 
long. Only the first 32 are sig- 
nificant so if you use very long 
names you must be careful to put 
the distinguishing difference 
within the first 32 characters. 

Whimsical is very particular 
about type mismatches in arithme- 
tic expressions. For example you 
can't multiply an integer by a 
shortint and assign the result to 
an integer. If you try to do that 
you will get a "TYPE MISMATCH" 
error. You must convert the shor- 
tint to an integer by means of the 
EXTEND operation: 

INT_VAL := INT_NUM * EXTEND 
SHORT I NT_NUM ; 

Whimsical has a wealth of vari- 
able types: 

Single Byte Two 
Bytes Four Bytes 

byte word 
long 

shortint inte- 
ger longint 
char 
real 
boolean 

Byte, word, and long are unsig- 
ned types that use hexadecimal 
values. The various length inte- 
gers are signed and require deci- 
mal values. Char, of course exp- 
ects a character value and real a 
floating point decimal. Types 
of the same length (byte, 
shortint, and char for example) 
may be converted using the CHAR 
conversion operator, just like the 
type cast operation in 'C. If, 
for example, you try to assign a 
hexadecimal value such as $0d (or 
the value of a byte variable) to a 



Page 14 



68xxx Machines 



May 1991 



char variable, Whimsical will is- 
sue a "Type Mismatch" error. Type 
casts work between variable types 
of the same size. Data types are 
converted to the next larger type 
using "extend" and to the next 
smaller using "trim". You must be 
careful not to trim a variable 
containing significant bits in the 
upper half or the program will 
produce incorrect results. Conver- 
sions are made between longint and 
real using "float" to convert to 
real and "round" or "trunc" to 
convert from real to longint. 

REALVAR := FLOAT EXTEND EXTEND 
SHORT I NT $3F; 

Realvar contains the value 
63.0. Of course it would be silly 
not to assign that value directly, 
but suppose rather than $3F we had 
wanted to convert the value of a 
byte variable to a real. 

Real numbers are four byte IEEE 
standard floating point numbers 
using an 8 bit exponent and 24 bit 
signed mantissa. The result is 
seven digit precision for floating 
point. Suppose we want to get the 
exponent portion of a real vari- 
able into a byte variable. The 



number format is 
SEEEEE EEEMMMMMHMHMMMMHMMHMMMMMMM 
where S is the Sign bit, E is the 
exponent byte and M is the "man- 
tissa" of the number. Whimsical 
has a way to access the individual 
words or bytes of one of the larg- 
er data types. Looking at the 
above, we have: 

BYTE[ 3] BYTE[ 2 ] BYTE[1] 

BYTE[0] 

SEEEEEEE EMMMMMMM MMMMMMMM MMH— 
MMMMM 

*---W0RD[l] * * W0RD[ 0 ] 

Now we can get the exponent 

by 

the following: 

EXP := BYTE[1 ] (WORD[ 1 ] REALVAR 

<< l); 

That is, the exponent is ob- 
tained by shifting the high order 
word of the real number to the 
left one place and taking the up- 
per byte of the result. Not only 
can you access individual bytes of 
a variable, but you can manipulate 
them by means of the bitwise and 
"&", or "", not "", or exclusive 
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or operators. For example, 

you could remove the high order 
bit from a character variable (us- 
ually the parity bit) by using: 

ch := char (byte ch & $7f ); 

The assignment operators also 
work with bitwise functions so 
that could be shortened to: 

ch &= char $7f; 

Another of the real strengths 
of Whimsical is its ability to use 
precompiled modules. You may split 
out a group of procedures and make 
them a module that can be precomp- 
iled. I did that with my scientif- 
ic functions package. The module 
is easily included in a program: 

module scipack-code from 
"l.w/scipack" 

The module construction cont- 
ains a header section that names 
all the procedures (and variables) 
that are "public" , i.e. those ac- 
cessible from the program or other 
modules. The rest of the module is 
private. That is, procedures and 
variables not declared in the pub- 



lic section are local to the mod- 
ule. A precompiled module is auto- 
matically given the extension . PCM 
by Whimsical . A complete program 
is given the extension .COM. Whim- 
sical also works with uncompiled 
"include" files. You can split a 
large program into a number of 
files, and the main one can inc- 
lude others, which are pulled in 
as needed; just as though they 
were part of the main file. 

Whimsical can work in conjunc- 
tion with PAT, an editor. (See PAT 
review on other pages in this is- 
sue. ED) WHIM FILENAME +A invokes 
the connection. If Whimsical de- 
tects an error, it calls PAT and 
passes it the file line number and 
column number for the error point- 
er, and an error message. PAT 
loads and goes to the offending 
line. The cursor ends up where 
Whimsical detected the error, and 
the status line of PAT contains 
the error message . Of course prec- 
ompiled modules are not accessible 
to this error mechanism, but "in- 
clude" files are. 

Whimsical will happily instruct 
PAT to edit an "include" file. 
When you fix the error and exit 
PAT the compiler tries to compile 
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the code again. On a successful 
compile, the process ends and a 
. COM output file is saved to disk. 
If you find you have gotten in too 
deeply and want to quit the pro- 
cess before you get through all of 
the errors, you can abort the pro- 
cess at the present state of er- 
rors fixed by quitting the editor. 
Fixes up to that time have been 
saved. 

Whimsical allows two kinds of 
comments. All text after a double 
dash on a line (up to the end of 
the line) is considered to be a 
comment (as in Ada). Text enclosed 
in the delimiters /* and */ is 
considered to be a comment as well 
(as in ' C). A comments can extend 
over several lines. 

The Ada type comment is nice 
for adding a comment after a stat- 
ement or for "commenting out" a 
single statement. The 'C type is 
great for section headings and the 
like, or for commenting out a 
large number of lines. Comments of 
both types may be nested, so a 
large portion of a procedure or 
program can be commented out even 
if it contains comment lines. 

Whimsical ignores capitaliza- 
tion within the program. That is, 



variables named PartNumber, part- 
number or PARTNUMBER are the same 
to Whimsical. Some programmers 
like to use capitals to separate 
mulitple words in a variable name 
as in the first example above. 
Some (myself included) prefer un- 
derlines to separate the words. 

Procedures that return a value 
must be typed. That is a procedure 
that returns a character must be 
defined as: 

char procedure whatever; begin 
dosomething; 

return charvariable; end; 

Procedures that return a value 
must have an explicit return stat- 
ement. Execution of a return stat- 
ement ends the procedure. You can 
make use of this fact to simplify 
logic in a procedure: 
boolean procedure vowel (char ch); 
begin 

if chz'a' or ch^e' or ch= • i • 
or chs'o* or chs'u* 

then return true; 
return false; end; 

In this case if a vowel is 
found the "then return true" is 
executed and the next line "return 
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false;" is not. If the condition 
is not met, the THEN is not exe- 
cuted so the return false line IS. 

Procedures that return nothing, 
have no type. They are simply sta- 
rted by the word "procedure". Pro- 
cedures have parameters passed by 
value unless the keyword "ref" is 
used, in which case a pointer is 
passed. (Usage is identical to 
the VAR keyword in Pascal). Arrays 
are passed by means of a pointer 
to the first element in the array. 
The syntax is just like that of 
Pascal. Variable declarations, 
however follow the syntax of 'C', 
with the type coming before the 
variable name: 

char array stuff[19]; an ar- 

ray of dimension 19 

byte array ($12000) [1000] ; -- an 
array at address $12000 

char pointer where_zit; -- a 

pointer 

char CR = char $0d; a CONSTANT 
declaration (no ":") 

longint size := 100000; an ini- 
tialized variable 

integer a, 
b, 

another; 

The modifiers "array" or "poin- 
ter" follow the type and precede 
the variable name. Array dimens- 
ions (and array references) use 
square brackets. Presently only 
singly dimensioned arrays are al- 
lowed. Variables declared at a 
fixed address use parentheses for 
the address. Arrays at fixed ad- 
dresses are declared as shown. 
Arrays may be indexed with a long- 
int variable, and so may be as 
large as memory permits. Parame- 
ters are passed enclosed in paren- 
theses. 

You also would want to be told 
about the write statement too. It 
is very flexible. The value of 
variables of all types, but bool- 
ean, can be output by using: 

integer k=17; a constant 

declaration 

write "the value of k is: 
",k," A *TJ"; 

That might be a bit of a puz- 



zle. The literal string is print- 
ed, then the value of K. Since K 
is an integer, a decimal value is 
printed. The last item tells Whim- 
sical to output control M and con- 
trol J (the carriage return and 
linefeed sequence). Another way 
would be to write the hexadecimal 
values : 

write "the value of k is: 
",k,char $0d,char $0a; 

As indicated previously, the 
hex values for linefeed and CR 
must be "cast" to type CHAR. (We 
want to output the code as though 
it were a character. We don't want 
to print "$0d".) 

The write statement is very 
valuable in debugging a program 
because it will write the value of 
a real in "sensible format" with- 
out a format specification. 

It will write values of byte, 
word, long variables as hexadeci- 
mal values. About the only thing 
it won't do directly is write the 
value of a boolean variable "true" 
or "false". However, in such a 
case, all you do is: 

if boolvar then write "true" 
else write "false"; 

The companion to the write sta- 
tement is the read statement. 
Read may be used to input values 
from the terminal as in: 

shortint number; 

write "Input a number from 1 
to 100: "; 

read number; 

Whimsical has easy file hand- 
ling as well. A file is defined 
as : 

file of char infile, outfile; 

The file is associated with a di- 
rectory filename easily. It may be 
done by means of a string, or if 
the filename is a parameter on the 
command line as in: 

dosome thing datafile.txt 
newdat . txt 

Now the simple statements: 

assign infile; 
assign outfile; 
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will associate infile with 
datafile.txt and outfile with 
newdat.txt. You can use a literal 
string or a character array to 
assign the file too: 

assign infile to 
"l.datafile.txt"; 

assign infile to 
name_of_in_f ile; -- a char array 

The files need to be opened. 
Assuming infile exists and outfile 
is to be created and written to: 

open infile; 
create outfile; 

Now we can read from the input 
file and write to the output file 
using : 

read from infile variablename; 
write to outfile variable; 

Read and Write can handle mul- 
tiple variables to and from files. 
If you use file of char, all vari- 
ables are expected to be in ASCII 
form and outputs are converted to 
ASCII. This procedure greatly sim- 
plifies looking at data files to 
see what might be wrong when de- 
bugging. If you are to write an 
output file containing only, say, 
real numbers, the file will be 
much smaller if you declare it as 
a file of real. You will then have 
to write a program to read the 
data and print it for you. 

Some of the available branch 
control structures are: 

while condition do 
b€gin 

statements; 
end; 

do 

statements ; 
until condition; 

Condition, in both cases is a 
boolean expression or variable. 
Boolean expressions use the key- 
words "and", "or", "xor", "not". 
They may be parenthesized as nec- 
essary for correct boolean alge- 
braic evaluation. 

The for/next style of counted 
loop is not yet implemented but 
may be easily constructed using an 
index variable: 

integer n; 
n:=0; 



while n < 12 do begin 

statements ; 

n+ = l; 
end; 

The variable need not be a inte- 
ger, and it need not be changed by 
1. The value of the index variable 
may be used within the loop. The 
loop terminates when the while 
condition fails, in this case when 
N is reached. Such a loop would 
execute 12 times, with N having 
the values 0 through 11. 

xxxCase statements are allowed 
on the value of any byte sized 
variable or expression. Whimsical 
also allows an ELSE clause. Unlike 
'C, a break statement is not re- 
quired after each case. The syntax 
is like that of Pascal. 

A DO or a While loop can be 
exited conditionally by using an 
"if condition then exit" statem- 
ent. Such an exit is to the line 
immediately following the loop 
structure in which the exit is 
found. That is, you can only exit 
one nesting level per exit state- 
ment. The statement after the cur- 
rent loop, to which exit brings 
execution, can be another "if con- 
dition then exit" statement, etc. 
The exit statement is very useful 
at times. 

So as you can see Whimsical is 
a many feartured language that is 
efficient and therefore fast. I 
use it most everyday, and highly 
recommend it. 

[John Spray, 304 Hartman Ln. , Sa- 
line MI 48176, $75. Personal 
checks will be accepted, but not 
credit cards. Please specify 
SK*DOS or REXDOS version and disk 
format desired. If you have both 
5.25" disks and 3.5" please speci- 
fy 5.25. There might be a delay 
before 3.5" can be supplied.] 
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